home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / WB13 / Extra / Mymouseread.asm < prev    next >
Assembly Source File  |  1998-03-01  |  712b  |  20 lines
  1. ;mouseread.asm  17/12/97
  2. ;cHArRiOTt
  3.  
  4.                     SECTION NUM1,CODE
  5.                     xdef           _ReadM
  6.  
  7.  
  8. _ReadM:             MOVEQ          #$0,D0           ;0
  9.                     BTST.L         #$6,$BFE001      ;peripheral data register A            0
  10.                     BNE.S          L22A
  11.                     MOVEQ          #$1,D0           ;1   LEFT
  12. L22A:               BTST         #$A,$DFF016
  13.                     BNE.S          L238
  14.                     BSET.L         #$1,D0           ;2   RIGHT
  15. L238:               BTST         #$8,$DFF016
  16.                     BNE.S          L246
  17.                     BSET.L         #$2,D0           ;3   BOTH
  18. L246:               RTS
  19.  
  20.                     END